home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / card_3047.txt < prev    next >
Text File  |  1989-04-11  |  27KB  |  1,100 lines
  1. -- card: 3047 from stack: in
  2. -- bmap block id: 4357
  3. -- flags: 0000
  4. -- background id: 2640
  5. -- name: Central
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global boxText
  9.   put boxText into bg fld 1
  10. end openCard
  11.  
  12. on closeCard
  13.   hide cd fld 1
  14. end closeCard
  15.  
  16. on testInfo
  17.   put item 2 of GetString(15003,1) into cd fld 1
  18.   show cd fld 1
  19. end testInfo
  20.  
  21. on arrowKey which
  22.   if which is "up" then
  23.     send mouseUp to cd btn 41
  24.   else if which is "down" then
  25.     send mouseUp to cd btn 38
  26.   else if which is "left" then
  27.     send mouseUp to cd btn 40
  28.   else if which is "right" then
  29.     send mouseUp to cd btn 39
  30.   end if
  31. end arrowKey
  32.  
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=80 top=188 right=200 bottom=92
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 20East Falls Church
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   global station,stationNum,done,startEnd,tripOn,infoOn
  51.   if infoOn + tripOn = 0 then
  52.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  53.     exit mouseUp
  54.   end if
  55.   put 20 into foo
  56.   put the short name of me into station
  57.   SetupTrip foo
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 2 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=132 top=188 right=200 bottom=144
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: 4Ballston
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   global station,stationNum,done,startEnd,tripOn,infoOn
  77.   if infoOn + tripOn = 0 then
  78.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  79.     exit mouseUp
  80.   end if
  81.   put 4 into foo
  82.   put the short name of me into station
  83.   SetupTrip foo
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 3 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=154 top=183 right=195 bottom=166
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 58Virginia Square
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   global station,stationNum,done,startEnd,tripOn,infoOn
  103.   if infoOn + tripOn = 0 then
  104.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  105.     exit mouseUp
  106.   end if
  107.   put 58 into foo
  108.   put the short name of me into station
  109.   SetupTrip foo
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 4 (button)
  115. -- low flags: 00
  116. -- high flags: 0000
  117. -- rect: left=169 top=175 right=187 bottom=181
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: 12Clarendon
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   global station,stationNum,done,startEnd,tripOn,infoOn
  129.   if infoOn + tripOn = 0 then
  130.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  131.     exit mouseUp
  132.   end if
  133.   put 12 into foo
  134.   put the short name of me into station
  135.   SetupTrip foo
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 5 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=184 top=167 right=179 bottom=196
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: 14Court House
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   global station,stationNum,done,startEnd,tripOn,infoOn
  155.   if infoOn + tripOn = 0 then
  156.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  157.     exit mouseUp
  158.   end if
  159.   put 14 into foo
  160.   put the short name of me into station
  161.   SetupTrip foo
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 6 (button)
  167. -- low flags: 00
  168. -- high flags: 0000
  169. -- rect: left=197 top=161 right=173 bottom=209
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: 47Rosslyn
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   global station,stationNum,done,startEnd,tripOn,infoOn
  181.   if infoOn + tripOn = 0 then
  182.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  183.     exit mouseUp
  184.   end if
  185.   put 47 into foo
  186.   put the short name of me into station
  187.   SetupTrip foo
  188. end mouseUp
  189.  
  190.  
  191.  
  192. -- part 7 (button)
  193. -- low flags: 00
  194. -- high flags: 0000
  195. -- rect: left=202 top=125 right=137 bottom=214
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: 26Foggy Bottom-GWU
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   global station,stationNum,done,startEnd,tripOn,infoOn
  207.   if infoOn + tripOn = 0 then
  208.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  209.     exit mouseUp
  210.   end if
  211.   put 26 into foo
  212.   put the short name of me into station
  213.   SetupTrip foo
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 8 (button)
  219. -- low flags: 00
  220. -- high flags: 0000
  221. -- rect: left=219 top=125 right=137 bottom=231
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: 23Farragut West
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   global station,stationNum,done,startEnd,tripOn,infoOn
  233.   if infoOn + tripOn = 0 then
  234.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  235.     exit mouseUp
  236.   end if
  237.   put 23 into foo
  238.   put the short name of me into station
  239.   SetupTrip foo
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 9 (button)
  245. -- low flags: 00
  246. -- high flags: 0000
  247. -- rect: left=253 top=125 right=137 bottom=265
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: 36McPherson Square
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   global station,stationNum,done,startEnd,tripOn,infoOn
  259.   if infoOn + tripOn = 0 then
  260.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  261.     exit mouseUp
  262.   end if
  263.   put 36 into foo
  264.   put the short name of me into station
  265.   SetupTrip foo
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 10 (button)
  271. -- low flags: 00
  272. -- high flags: 0000
  273. -- rect: left=270 top=138 right=150 bottom=282
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: 38Metro Center
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   global station,stationNum,done,startEnd,tripOn,infoOn
  285.   if infoOn + tripOn = 0 then
  286.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  287.     exit mouseUp
  288.   end if
  289.   put 38 into foo
  290.   put the short name of me into station
  291.   SetupTrip foo
  292. end mouseUp
  293.  
  294.  
  295.  
  296. -- part 11 (button)
  297. -- low flags: 00
  298. -- high flags: 0000
  299. -- rect: left=270 top=149 right=161 bottom=282
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: 25Federal Triangle
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   global station,stationNum,done,startEnd,tripOn,infoOn
  311.   if infoOn + tripOn = 0 then
  312.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  313.     exit mouseUp
  314.   end if
  315.   put 25 into foo
  316.   put the short name of me into station
  317.   SetupTrip foo
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 12 (button)
  323. -- low flags: 00
  324. -- high flags: 0000
  325. -- rect: left=270 top=165 right=177 bottom=282
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 50Smithsonian
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   global station,stationNum,done,startEnd,tripOn,infoOn
  337.   if infoOn + tripOn = 0 then
  338.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  339.     exit mouseUp
  340.   end if
  341.   put 50 into foo
  342.   put the short name of me into station
  343.   SetupTrip foo
  344. end mouseUp
  345.  
  346.  
  347.  
  348. -- part 13 (button)
  349. -- low flags: 00
  350. -- high flags: 0000
  351. -- rect: left=286 top=175 right=187 bottom=298
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: 35L'Enfant Plaza
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   global station,stationNum,done,startEnd,tripOn,infoOn
  363.   if infoOn + tripOn = 0 then
  364.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  365.     exit mouseUp
  366.   end if
  367.   put 35 into foo
  368.   put the short name of me into station
  369.   SetupTrip foo
  370. end mouseUp
  371.  
  372.  
  373.  
  374. -- part 14 (button)
  375. -- low flags: 00
  376. -- high flags: 0000
  377. -- rect: left=300 top=175 right=187 bottom=312
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: 24Federal Center SW
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   global station,stationNum,done,startEnd,tripOn,infoOn
  389.   if infoOn + tripOn = 0 then
  390.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  391.     exit mouseUp
  392.   end if
  393.   put 24 into foo
  394.   put the short name of me into station
  395.   SetupTrip foo
  396. end mouseUp
  397.  
  398.  
  399.  
  400. -- part 15 (button)
  401. -- low flags: 00
  402. -- high flags: 0000
  403. -- rect: left=318 top=175 right=187 bottom=330
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 0 / 0
  406. -- text alignment: 1
  407. -- font id: 0
  408. -- text size: 12
  409. -- style flags: 0
  410. -- line height: 16
  411. -- part name: 10Capitol South
  412. ----- HyperTalk script -----
  413. on mouseUp
  414.   global station,stationNum,done,startEnd,tripOn,infoOn
  415.   if infoOn + tripOn = 0 then
  416.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  417.     exit mouseUp
  418.   end if
  419.   put 10 into foo
  420.   put the short name of me into station
  421.   SetupTrip foo
  422. end mouseUp
  423.  
  424.  
  425.  
  426. -- part 16 (button)
  427. -- low flags: 00
  428. -- high flags: 0000
  429. -- rect: left=338 top=175 right=187 bottom=350
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 1
  433. -- font id: 0
  434. -- text size: 12
  435. -- style flags: 0
  436. -- line height: 16
  437. -- part name: 19Eastern Market
  438. ----- HyperTalk script -----
  439. on mouseUp
  440.   global station,stationNum,done,startEnd,tripOn,infoOn
  441.   if infoOn + tripOn = 0 then
  442.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  443.     exit mouseUp
  444.   end if
  445.   put 19 into foo
  446.   put the short name of me into station
  447.   SetupTrip foo
  448. end mouseUp
  449.  
  450.  
  451.  
  452. -- part 17 (button)
  453. -- low flags: 00
  454. -- high flags: 0000
  455. -- rect: left=360 top=175 right=187 bottom=372
  456. -- title width / last selected line: 0
  457. -- icon id / first selected line: 0 / 0
  458. -- text alignment: 1
  459. -- font id: 0
  460. -- text size: 12
  461. -- style flags: 0
  462. -- line height: 16
  463. -- part name: 44Potomac Avenue
  464. ----- HyperTalk script -----
  465. on mouseUp
  466.   global station,stationNum,done,startEnd,tripOn,infoOn
  467.   if infoOn + tripOn = 0 then
  468.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  469.     exit mouseUp
  470.   end if
  471.   put 44 into foo
  472.   put the short name of me into station
  473.   SetupTrip foo
  474. end mouseUp
  475.  
  476.  
  477.  
  478. -- part 18 (button)
  479. -- low flags: 00
  480. -- high flags: 0000
  481. -- rect: left=373 top=159 right=171 bottom=385
  482. -- title width / last selected line: 0
  483. -- icon id / first selected line: 0 / 0
  484. -- text alignment: 1
  485. -- font id: 0
  486. -- text size: 12
  487. -- style flags: 0
  488. -- line height: 16
  489. -- part name: 51Stadium-Armory
  490. ----- HyperTalk script -----
  491. on mouseUp
  492.   global station,stationNum,done,startEnd,tripOn,infoOn
  493.   if infoOn + tripOn = 0 then
  494.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  495.     exit mouseUp
  496.   end if
  497.   put 51 into foo
  498.   put the short name of me into station
  499.   SetupTrip foo
  500. end mouseUp
  501.  
  502.  
  503.  
  504. -- part 19 (button)
  505. -- low flags: 00
  506. -- high flags: 0000
  507. -- rect: left=249 top=245 right=257 bottom=261
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 1
  511. -- font id: 0
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 16
  515. -- part name: 40National Airport
  516. ----- HyperTalk script -----
  517. on mouseUp
  518.   global station,stationNum,done,startEnd,tripOn,infoOn
  519.   if infoOn + tripOn = 0 then
  520.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  521.     exit mouseUp
  522.   end if
  523.   put 40 into foo
  524.   put the short name of me into station
  525.   SetupTrip foo
  526. end mouseUp
  527.  
  528.  
  529.  
  530. -- part 20 (button)
  531. -- low flags: 00
  532. -- high flags: 0000
  533. -- rect: left=241 top=232 right=244 bottom=253
  534. -- title width / last selected line: 0
  535. -- icon id / first selected line: 0 / 0
  536. -- text alignment: 1
  537. -- font id: 0
  538. -- text size: 12
  539. -- style flags: 0
  540. -- line height: 16
  541. -- part name: 15Crystal City
  542. ----- HyperTalk script -----
  543. on mouseUp
  544.   global station,stationNum,done,startEnd,tripOn,infoOn
  545.   if infoOn + tripOn = 0 then
  546.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  547.     exit mouseUp
  548.   end if
  549.   put 15 into foo
  550.   put the short name of me into station
  551.   SetupTrip foo
  552. end mouseUp
  553.  
  554.  
  555.  
  556. -- part 21 (button)
  557. -- low flags: 00
  558. -- high flags: 0000
  559. -- rect: left=231 top=225 right=237 bottom=243
  560. -- title width / last selected line: 0
  561. -- icon id / first selected line: 0 / 0
  562. -- text alignment: 1
  563. -- font id: 0
  564. -- text size: 12
  565. -- style flags: 0
  566. -- line height: 16
  567. -- part name: 43Pentagon City
  568. ----- HyperTalk script -----
  569. on mouseUp
  570.   global station,stationNum,done,startEnd,tripOn,infoOn
  571.   if infoOn + tripOn = 0 then
  572.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  573.     exit mouseUp
  574.   end if
  575.   put 43 into foo
  576.   put the short name of me into station
  577.   SetupTrip foo
  578. end mouseUp
  579.  
  580.  
  581.  
  582. -- part 22 (button)
  583. -- low flags: 00
  584. -- high flags: 0000
  585. -- rect: left=231 top=213 right=225 bottom=243
  586. -- title width / last selected line: 0
  587. -- icon id / first selected line: 0 / 0
  588. -- text alignment: 1
  589. -- font id: 0
  590. -- text size: 12
  591. -- style flags: 0
  592. -- line height: 16
  593. -- part name: 42Pentagon
  594. ----- HyperTalk script -----
  595. on mouseUp
  596.   global station,stationNum,done,startEnd,tripOn,infoOn
  597.   if infoOn + tripOn = 0 then
  598.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  599.     exit mouseUp
  600.   end if
  601.   put 42 into foo
  602.   put the short name of me into station
  603.   SetupTrip foo
  604. end mouseUp
  605.  
  606.  
  607.  
  608. -- part 23 (button)
  609. -- low flags: 00
  610. -- high flags: 0000
  611. -- rect: left=211 top=181 right=193 bottom=223
  612. -- title width / last selected line: 0
  613. -- icon id / first selected line: 0 / 0
  614. -- text alignment: 1
  615. -- font id: 0
  616. -- text size: 12
  617. -- style flags: 0
  618. -- line height: 16
  619. -- part name: 3Arlington Cemetary
  620. ----- HyperTalk script -----
  621. on mouseUp
  622.   global station,stationNum,done,startEnd,tripOn,infoOn
  623.   if infoOn + tripOn = 0 then
  624.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  625.     exit mouseUp
  626.   end if
  627.   put 3 into foo
  628.   put the short name of me into station
  629.   SetupTrip foo
  630. end mouseUp
  631.  
  632.  
  633.  
  634. -- part 24 (button)
  635. -- low flags: 00
  636. -- high flags: 0000
  637. -- rect: left=286 top=152 right=164 bottom=298
  638. -- title width / last selected line: 0
  639. -- icon id / first selected line: 0 / 0
  640. -- text alignment: 1
  641. -- font id: 0
  642. -- text size: 12
  643. -- style flags: 0
  644. -- line height: 16
  645. -- part name: 2Archives
  646. ----- HyperTalk script -----
  647. on mouseUp
  648.   global station,stationNum,done,startEnd,tripOn,infoOn
  649.   if infoOn + tripOn = 0 then
  650.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  651.     exit mouseUp
  652.   end if
  653.   put 2 into foo
  654.   put the short name of me into station
  655.   SetupTrip foo
  656. end mouseUp
  657.  
  658.  
  659.  
  660. -- part 25 (button)
  661. -- low flags: 00
  662. -- high flags: 0000
  663. -- rect: left=163 top=47 right=59 bottom=175
  664. -- title width / last selected line: 0
  665. -- icon id / first selected line: 0 / 0
  666. -- text alignment: 1
  667. -- font id: 0
  668. -- text size: 12
  669. -- style flags: 0
  670. -- line height: 16
  671. -- part name: 28Friendship Heights
  672. ----- HyperTalk script -----
  673. on mouseUp
  674.   global station,stationNum,done,startEnd,tripOn,infoOn
  675.   if infoOn + tripOn = 0 then
  676.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  677.     exit mouseUp
  678.   end if
  679.   put 28 into foo
  680.   put the short name of me into station
  681.   SetupTrip foo
  682. end mouseUp
  683.  
  684.  
  685.  
  686. -- part 26 (button)
  687. -- low flags: 00
  688. -- high flags: 0000
  689. -- rect: left=163 top=59 right=71 bottom=175
  690. -- title width / last selected line: 0
  691. -- icon id / first selected line: 0 / 0
  692. -- text alignment: 1
  693. -- font id: 0
  694. -- text size: 12
  695. -- style flags: 0
  696. -- line height: 16
  697. -- part name: 52Tenleytown
  698. ----- HyperTalk script -----
  699. on mouseUp
  700.   global station,stationNum,done,startEnd,tripOn,infoOn
  701.   if infoOn + tripOn = 0 then
  702.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  703.     exit mouseUp
  704.   end if
  705.   put 52 into foo
  706.   put the short name of me into station
  707.   SetupTrip foo
  708. end mouseUp
  709.  
  710.  
  711.  
  712. -- part 27 (button)
  713. -- low flags: 00
  714. -- high flags: 0000
  715. -- rect: left=194 top=64 right=76 bottom=206
  716. -- title width / last selected line: 0
  717. -- icon id / first selected line: 0 / 0
  718. -- text alignment: 1
  719. -- font id: 0
  720. -- text size: 12
  721. -- style flags: 0
  722. -- line height: 16
  723. -- part name: 56Van Ness/UDC
  724. ----- HyperTalk script -----
  725. on mouseUp
  726.   global station,stationNum,done,startEnd,tripOn,infoOn
  727.   if infoOn + tripOn = 0 then
  728.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  729.     exit mouseUp
  730.   end if
  731.   put 56 into foo
  732.   put the short name of me into station
  733.   SetupTrip foo
  734. end mouseUp
  735.  
  736.  
  737.  
  738. -- part 28 (button)
  739. -- low flags: 00
  740. -- high flags: 0000
  741. -- rect: left=201 top=75 right=87 bottom=213
  742. -- title width / last selected line: 0
  743. -- icon id / first selected line: 0 / 0
  744. -- text alignment: 1
  745. -- font id: 0
  746. -- text size: 12
  747. -- style flags: 0
  748. -- line height: 16
  749. -- part name: 13Cleveland Park
  750. ----- HyperTalk script -----
  751. on mouseUp
  752.   global station,stationNum,done,startEnd,tripOn,infoOn
  753.   if infoOn + tripOn = 0 then
  754.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  755.     exit mouseUp
  756.   end if
  757.   put 13 into foo
  758.   put the short name of me into station
  759.   SetupTrip foo
  760. end mouseUp
  761.  
  762.  
  763.  
  764. -- part 29 (button)
  765. -- low flags: 00
  766. -- high flags: 0000
  767. -- rect: left=209 top=88 right=100 bottom=221
  768. -- title width / last selected line: 0
  769. -- icon id / first selected line: 0 / 0
  770. -- text alignment: 1
  771. -- font id: 0
  772. -- text size: 12
  773. -- style flags: 0
  774. -- line height: 16
  775. -- part name: 61Woodley Park/Zoo
  776. ----- HyperTalk script -----
  777. on mouseUp
  778.   global station,stationNum,done,startEnd,tripOn,infoOn
  779.   if infoOn + tripOn = 0 then
  780.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  781.     exit mouseUp
  782.   end if
  783.   put 61 into foo
  784.   put the short name of me into station
  785.   SetupTrip foo
  786. end mouseUp
  787.  
  788.  
  789.  
  790. -- part 30 (button)
  791. -- low flags: 00
  792. -- high flags: 0000
  793. -- rect: left=218 top=100 right=112 bottom=230
  794. -- title width / last selected line: 0
  795. -- icon id / first selected line: 0 / 0
  796. -- text alignment: 1
  797. -- font id: 0
  798. -- text size: 12
  799. -- style flags: 0
  800. -- line height: 16
  801. -- part name: 18Dupont Circle
  802. ----- HyperTalk script -----
  803. on mouseUp
  804.   global station,stationNum,done,startEnd,tripOn,infoOn
  805.   if infoOn + tripOn = 0 then
  806.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  807.     exit mouseUp
  808.   end if
  809.   put 18 into foo
  810.   put the short name of me into station
  811.   SetupTrip foo
  812. end mouseUp
  813.  
  814.  
  815.  
  816. -- part 31 (button)
  817. -- low flags: 00
  818. -- high flags: 0000
  819. -- rect: left=225 top=113 right=125 bottom=237
  820. -- title width / last selected line: 0
  821. -- icon id / first selected line: 0 / 0
  822. -- text alignment: 1
  823. -- font id: 0
  824. -- text size: 12
  825. -- style flags: 0
  826. -- line height: 16
  827. -- part name: 22Farragut North
  828. ----- HyperTalk script -----
  829. on mouseUp
  830.   global station,stationNum,done,startEnd,tripOn,infoOn
  831.   if infoOn + tripOn = 0 then
  832.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  833.     exit mouseUp
  834.   end if
  835.   put 22 into foo
  836.   put the short name of me into station
  837.   SetupTrip foo
  838. end mouseUp
  839.  
  840.  
  841.  
  842. -- part 32 (button)
  843. -- low flags: 00
  844. -- high flags: 0000
  845. -- rect: left=286 top=138 right=150 bottom=298
  846. -- title width / last selected line: 0
  847. -- icon id / first selected line: 0 / 0
  848. -- text alignment: 1
  849. -- font id: 0
  850. -- text size: 12
  851. -- style flags: 0
  852. -- line height: 16
  853. -- part name: 29Gallery Place
  854. ----- HyperTalk script -----
  855. on mouseUp
  856.   global station,stationNum,done,startEnd,tripOn,infoOn
  857.   if infoOn + tripOn = 0 then
  858.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  859.     exit mouseUp
  860.   end if
  861.   put 29 into foo
  862.   put the short name of me into station
  863.   SetupTrip foo
  864. end mouseUp
  865.  
  866.  
  867.  
  868. -- part 33 (button)
  869. -- low flags: 00
  870. -- high flags: 0000
  871. -- rect: left=312 top=137 right=149 bottom=324
  872. -- title width / last selected line: 0
  873. -- icon id / first selected line: 0 / 0
  874. -- text alignment: 1
  875. -- font id: 0
  876. -- text size: 12
  877. -- style flags: 0
  878. -- line height: 16
  879. -- part name: 32Judiciary Square
  880. ----- HyperTalk script -----
  881. on mouseUp
  882.   global station,stationNum,done,startEnd,tripOn,infoOn
  883.   if infoOn + tripOn = 0 then
  884.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  885.     exit mouseUp
  886.   end if
  887.   put 32 into foo
  888.   put the short name of me into station
  889.   SetupTrip foo
  890. end mouseUp
  891.  
  892.  
  893.  
  894. -- part 34 (button)
  895. -- low flags: 00
  896. -- high flags: 0000
  897. -- rect: left=327 top=129 right=141 bottom=339
  898. -- title width / last selected line: 0
  899. -- icon id / first selected line: 0 / 0
  900. -- text alignment: 1
  901. -- font id: 0
  902. -- text size: 12
  903. -- style flags: 0
  904. -- line height: 16
  905. -- part name: 55Union Station
  906. ----- HyperTalk script -----
  907. on mouseUp
  908.   global station,stationNum,done,startEnd,tripOn,infoOn
  909.   if infoOn + tripOn = 0 then
  910.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  911.     exit mouseUp
  912.   end if
  913.   put 55 into foo
  914.   put the short name of me into station
  915.   SetupTrip foo
  916. end mouseUp
  917.  
  918.  
  919.  
  920. -- part 35 (button)
  921. -- low flags: 00
  922. -- high flags: 0000
  923. -- rect: left=327 top=109 right=121 bottom=339
  924. -- title width / last selected line: 0
  925. -- icon id / first selected line: 0 / 0
  926. -- text alignment: 1
  927. -- font id: 0
  928. -- text size: 12
  929. -- style flags: 0
  930. -- line height: 16
  931. -- part name: 45Rhode Island Avenue
  932. ----- HyperTalk script -----
  933. on mouseUp
  934.   global station,stationNum,done,startEnd,tripOn,infoOn
  935.   if infoOn + tripOn = 0 then
  936.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  937.     exit mouseUp
  938.   end if
  939.   put 45 into foo
  940.   put the short name of me into station
  941.   SetupTrip foo
  942. end mouseUp
  943.  
  944.  
  945.  
  946. -- part 36 (button)
  947. -- low flags: 00
  948. -- high flags: 0000
  949. -- rect: left=327 top=84 right=96 bottom=339
  950. -- title width / last selected line: 0
  951. -- icon id / first selected line: 0 / 0
  952. -- text alignment: 1
  953. -- font id: 0
  954. -- text size: 12
  955. -- style flags: 0
  956. -- line height: 16
  957. -- part name: 8Brookland/CUA
  958. ----- HyperTalk script -----
  959. on mouseUp
  960.   global station,stationNum,done,startEnd,tripOn,infoOn
  961.   if infoOn + tripOn = 0 then
  962.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  963.     exit mouseUp
  964.   end if
  965.   put 8 into foo
  966.   put the short name of me into station
  967.   SetupTrip foo
  968. end mouseUp
  969.  
  970.  
  971.  
  972. -- part 37 (button)
  973. -- low flags: 00
  974. -- high flags: 0000
  975. -- rect: left=320 top=51 right=63 bottom=332
  976. -- title width / last selected line: 0
  977. -- icon id / first selected line: 0 / 0
  978. -- text alignment: 1
  979. -- font id: 0
  980. -- text size: 12
  981. -- style flags: 0
  982. -- line height: 16
  983. -- part name: 27Fort Trotten
  984. ----- HyperTalk script -----
  985. on mouseUp
  986.   global station,stationNum,done,startEnd,tripOn,infoOn
  987.   if infoOn + tripOn = 0 then
  988.     answer "Please click either the ""e&"Trip""e&" or ""e&"Info"& quote&" button on control bar first." with "OK"
  989.     exit mouseUp
  990.   end if
  991.   put 27 into foo
  992.   put the short name of me into station
  993.   SetupTrip foo
  994. end mouseUp
  995.  
  996.  
  997.  
  998. -- part 39 (button)
  999. -- low flags: 00
  1000. -- high flags: 2000
  1001. -- rect: left=454 top=253 right=273 bottom=474
  1002. -- title width / last selected line: 0
  1003. -- icon id / first selected line: 2730 / 2730
  1004. -- text alignment: 1
  1005. -- font id: 0
  1006. -- text size: 12
  1007. -- style flags: 0
  1008. -- line height: 16
  1009. -- part name: South
  1010. ----- HyperTalk script -----
  1011. on mouseUp
  1012.   set cursor to watch
  1013.   visual dissolve fast
  1014.   go cd "south"
  1015. end mouseUp
  1016.  
  1017.  
  1018.  
  1019. -- part 40 (button)
  1020. -- low flags: 00
  1021. -- high flags: 2000
  1022. -- rect: left=473 top=234 right=254 bottom=493
  1023. -- title width / last selected line: 0
  1024. -- icon id / first selected line: 1013 / 1013
  1025. -- text alignment: 1
  1026. -- font id: 0
  1027. -- text size: 12
  1028. -- style flags: 0
  1029. -- line height: 16
  1030. -- part name: East
  1031. ----- HyperTalk script -----
  1032. on mouseUp
  1033.   set cursor to watch
  1034.   visual dissolve fast
  1035.   go cd "east"
  1036. end mouseUp
  1037.  
  1038.  
  1039.  
  1040. -- part 41 (button)
  1041. -- low flags: 00
  1042. -- high flags: 2000
  1043. -- rect: left=435 top=234 right=254 bottom=455
  1044. -- title width / last selected line: 0
  1045. -- icon id / first selected line: 1014 / 1014
  1046. -- text alignment: 1
  1047. -- font id: 0
  1048. -- text size: 12
  1049. -- style flags: 0
  1050. -- line height: 16
  1051. -- part name: West
  1052. ----- HyperTalk script -----
  1053. on mouseUp
  1054.   set cursor to watch
  1055.   visual dissolve fast
  1056.   go cd "west"
  1057. end mouseUp
  1058.  
  1059.  
  1060.  
  1061. -- part 47 (button)
  1062. -- low flags: 00
  1063. -- high flags: 2000
  1064. -- rect: left=454 top=215 right=235 bottom=474
  1065. -- title width / last selected line: 0
  1066. -- icon id / first selected line: 29019 / 29019
  1067. -- text alignment: 1
  1068. -- font id: 0
  1069. -- text size: 12
  1070. -- style flags: 0
  1071. -- line height: 16
  1072. -- part name: North
  1073. ----- HyperTalk script -----
  1074. on mouseUp
  1075.   set cursor to watch
  1076.   visual dissolve fast
  1077.   go cd "north"
  1078. end mouseUp
  1079.  
  1080.  
  1081.  
  1082. -- part 49 (field)
  1083. -- low flags: 81
  1084. -- high flags: 2004
  1085. -- rect: left=142 top=99 right=223 bottom=366
  1086. -- title width / last selected line: 0
  1087. -- icon id / first selected line: 0 / 0
  1088. -- text alignment: 1
  1089. -- font id: 0
  1090. -- text size: 12
  1091. -- style flags: 0
  1092. -- line height: 16
  1093. -- part name: 
  1094. ----- HyperTalk script -----
  1095. on mouseUp
  1096.   hide me
  1097.   put empty into me
  1098. end mouseUp
  1099.  
  1100.